home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / Pascal / Libraries / DBL Pascal Library / ErrSignal / TestSignals_3.p < prev    next >
Encoding:
Text File  |  1991-03-29  |  528 b   |  37 lines  |  [TEXT/PJMM]
  1. program main;
  2.  
  3.     uses
  4.         ErrSignal;
  5.  
  6.     procedure TestProc;
  7.         var
  8.             catch: Integer;
  9.  
  10.         procedure SubProc;
  11.         begin
  12.             writeln('entering SubProc');
  13.             Signal(1);
  14.         end;
  15.  
  16.         procedure Handler;
  17.         begin
  18.             writeln('entering Handler');
  19.             SignalHandlerDone;
  20.             Exit(TestProc);
  21.         end;
  22.  
  23.     begin
  24.         writeln('entering TestProc');
  25.         InitSignals(sigFail);
  26.         catch := CatchSignal;
  27.         if catch <> 0 then
  28.             Handler;
  29.         writeln('catch established in TestProc');
  30.         SubProc;
  31.     end;
  32.  
  33. begin { main }
  34.     ShowText;
  35.     TestProc;
  36.     writeln('returned to main');
  37. end.